home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / archiver / auto_501.lzh / LUMP501.S < prev    next >
Text File  |  1985-11-20  |  22KB  |  1,203 lines
  1.     TEXT
  2. Begin    
  3.     BRA    L0004
  4. L0000    DC.B    'super.lum',0,0,0,0,0,0,0
  5. L0001    DS.W    1
  6. L0002    DC.B    'cycle.PRG',0
  7. L0003    DC.B    $1B,$45,$1B,$66,$1B,$77
  8.     DC.B    'MESSAGE TO APPEAR AT FRONT OF LOADER',13,10
  9.     DC.B    'HI FROM EGB... ETC',13,10
  10.     DC.B    0
  11.     EVEN
  12.  
  13. L0004    MOVEA.L    4(A7),A5    
  14.     MOVE.L    12(A5),D0
  15.     ADD.L    20(A5),D0
  16.     ADD.L    28(A5),D0
  17.     ADDI.L    #$200,D0
  18.     ADDI.L    #$4008,D0
  19.     MOVE.L    D0,-(A7)
  20.     MOVE.L    A5,-(A7)
  21.     MOVE.L    #$4A0000,-(A7)
  22.     TRAP    #1
  23.     LEA    12(A7),A7
  24.     DC.B    $A0,$0A
  25.     PEA    L0003
  26.     MOVE.W    #9,-(A7)
  27.     TRAP    #1
  28.     ADDQ.L    #6,A7
  29.     DC.B    $A0,$09
  30.     MOVE.L    #L00AF,L009E
  31.     MOVE.L    #L0000,L009A
  32.     MOVE.L    #L0001,L009B
  33.     CLR.L    -(A7)
  34.     MOVE.W    #$20,-(A7)
  35.     TRAP    #1
  36.     ADDQ.L    #6,A7
  37.     LEA    L0096(PC),A6
  38.     MOVE.L    D0,(A6)
  39.     MOVE.L    $00000084.L,L000A
  40.     MOVE.L    #L0006,$00000084.L
  41.     MOVE.L    L0096(PC),-(A7)
  42.     MOVE.W    #$20,-(A7)
  43.     TRAP    #1
  44.     ADDQ.L    #6,A7
  45. L0005    CLR.L    L009C
  46.     MOVEA.L    #L0005,A7
  47.     MOVE.L    #L0000,L0099
  48.     MOVE.L    #-$16,L0098
  49.     CLR.L    $00060000
  50.     PEA    $00060000
  51.     PEA    $00060000
  52.     MOVE.L    #L0002,-(A7)
  53.     MOVE.L    #$4B0000,-(A7)
  54.     TRAP    #1
  55.     LEA    16(A7),A7
  56.     CLR.W    -(A7)
  57.     TRAP    #1
  58. L0006    TST.W    L009D
  59.     BNE    L0009
  60.     MOVEM.L    A0-A6/D0-D7,L00A0
  61.     MOVEA.L    A7,A1
  62.     ADDQ.L    #6,A1
  63.     MOVE.W    (A7),D0
  64.     BTST    #13,D0
  65.     BNE.S    L0007
  66.     MOVE    USP,A1
  67. L0007    CMPI.W    #$3D,(A1)
  68.     BEQ    L000B
  69.     CMPI.W    #$3F,(A1)
  70.     BEQ    L0014
  71.     CMPI.W    #$3E,(A1)
  72.     BEQ    L0032
  73.     CMPI.W    #$3C,(A1)
  74.     BEQ    L0042
  75.     CMPI.W    #$40,(A1)
  76.     BEQ    L0045
  77.     CMPI.W    #$42,(A1)
  78.     BEQ    L0039
  79.     CMPI.W    #$4E,(A1)
  80.     BEQ    L0046
  81.     CMPI.W    #$4F,(A1)
  82.     BEQ    L0051
  83.     CMPI.W    #$45,(A1)
  84.     BEQ    L0052
  85.     CMPI.W    #$46,(A1)
  86.     BEQ    L0053
  87. L0008    MOVEM.L    L00A0(PC),A0-A6/D0-D7
  88. L0009    JMP    $00000000.L
  89. L000A    EQU    L0009+2
  90. L000B    MOVE.W    #1,L009D
  91.     BSR    L0055
  92.     MOVE.L    D0,D7
  93.     MOVE.L    D0,D6
  94.     MOVEA.L    A0,A5
  95.     MOVEA.L    2(A1),A6
  96.     MOVE.W    6(A1),-(A7)
  97.     MOVE.L    A6,-(A7)
  98.     MOVE.W    #$3D,-(A7)
  99.     TRAP    #1
  100.     ADDQ.L    #8,A7
  101.     TST.L    D0
  102.     BPL    L000D
  103.     CLR.L    D6
  104.     MOVEA.L    A6,A0
  105.     MOVEA.L    L009A,A4
  106.     BSR    L0057
  107.     TST.L    D0
  108.     BMI    L0041
  109.     LEA    L0095,A1
  110.     MOVE.L    D7,D6
  111.     LSL.L    #2,D6
  112.     MOVE.L    D0,0(A1,D6.W)
  113.     LEA    L00A4,A1
  114.     CLR.L    0(A1,D6.W)
  115.     LEA    L00A8,A1
  116.     MOVE.L    A4,0(A1,D6.W)
  117.     LEA    L00A5,A1
  118.     MOVE.L    14(A0),0(A1,D6.W)
  119.     LEA    L00A7,A1
  120.     MOVE.L    18(A0),0(A1,D6.W)
  121.     CLR.L    D0
  122.     MOVEA.L    L009E,A0
  123.     MOVE.W    200(A0),D0
  124.     MULU    #$16,D0
  125.     ADDQ.L    #2,D0
  126.     ANDI.L    #$FFFF,D0
  127.     ADD.L    D0,0(A1,D6.W)
  128.     MOVE.L    D7,D6
  129.     LSL.L    #5,D7
  130.     LEA    L00A6,A0
  131.     ADDA.L    D7,A0
  132.     MOVEA.L    A6,A2
  133. L000C    MOVE.B    (A2)+,(A0)+
  134.     BNE.S    L000C
  135.     BRA    L0013
  136. L000D    MOVE.L    D0,D4
  137.     CLR.L    L00AB
  138.     PEA    L00AB
  139.     MOVE.L    #8,-(A7)
  140.     MOVE.W    D4,-(A7)
  141.     MOVE.W    #$3F,-(A7)
  142.     TRAP    #1
  143.     LEA    12(A7),A7
  144.     CLR.W    -(A7)
  145.     MOVE.W    D4,-(A7)
  146.     CLR.L    -(A7)
  147.     MOVE.W    #$42,-(A7)
  148.     TRAP    #1
  149.     LEA    10(A7),A7
  150.     MOVEA.L    A6,A4
  151.     MOVE.L    #$1F,D0
  152. L000E    MOVE.B    (A6)+,(A5)+
  153.     DBF    D0,L000E
  154.     LSL.L    #2,D7
  155.     LEA    L00A4,A0
  156.     MOVE.L    #0,0(A0,D7.W)
  157.     LEA    L00A7,A0
  158.     MOVE.L    #0,0(A0,D7.W)
  159.     CMPI.L    #"AU5$",L00AB
  160.     BEQ.S    L000F
  161.     LEA    L0095,A0
  162.     MOVE.L    D4,0(A0,D7.W)
  163.     LEA    L00A8,A0
  164.     MOVE.L    #0,0(A0,D7.W)
  165.     CMPI.L    #"AU5C",L00AB
  166.     BNE    L0013
  167.     MOVE.L    #-1,0(A0,D7.W)
  168.     LEA    L00A5,A0
  169.     MOVE.L    L00AC,0(A0,D7.W)
  170.     BRA    L0010
  171. L000F    LEA    L00A5,A0
  172.     MOVE.L    L00AC,0(A0,D7.W)
  173.     LEA    L0095,A0
  174.     MOVE.L    #-1,0(A0,D7.W)
  175.     LEA    L00A8,A0
  176.     MOVE.L    #0,0(A0,D7.W)
  177.     MOVE.W    D4,-(A7)
  178.     MOVE.W    #$3E,-(A7)
  179.     TRAP    #1
  180.     ADDQ.L    #4,A7
  181. L0010    LEA    L00A3,A5
  182. L0011    TST.B    (A4)
  183.     BEQ.S    L0012
  184.     CMPM.B    (A4)+,(A5)+
  185.     BEQ.S    L0011
  186.     BRA.S    L0013
  187. L0012    TST.B    (A5)
  188.     BNE.S    L0013
  189.     MOVE.L    D6,L009C
  190. L0013    CLR.W    L009D
  191.     MOVE.L    D6,-(A7)
  192.     MOVEM.L    L00A0,A0-A6/D0-D7
  193.     MOVE.L    (A7)+,D0
  194.     RTE
  195. L0014    CLR.L    D0
  196.     MOVE.W    2(A1),D0
  197.     TST.W    D0
  198.     BMI    L0015
  199.     MOVE.W    D0,D1
  200.     LSL.L    #2,D1
  201.     LEA    L0095,A0
  202.     MOVE.L    0(A0,D1.W),D2
  203.     CMP.W    #-1,D2
  204.     BEQ    L0019
  205.     LEA    L00A8,A0
  206.     MOVE.L    0(A0,D1.W),D3
  207.     TST.L    D3
  208.     BNE    L001F
  209. L0015    MOVE.W    #1,L009D
  210.     MOVE.L    8(A1),D7
  211.     MOVE.L    D7,-(A7)
  212.     MOVE.L    4(A1),-(A7)
  213.     MOVE.W    D2,-(A7)
  214.     MOVE.W    #$3F,-(A7)
  215.     TRAP    #1
  216.     LEA    12(A7),A7
  217.     MOVE.L    D0,D5
  218.     MOVEA.L    D7,A0
  219.     CLR.L    D0
  220.     MOVE.B    (A0),D0
  221.     LSL.W    #8,D0
  222.     MOVE.B    1(A0),D0
  223.     SWAP    D0
  224.     MOVE.B    2(A0),D0
  225.     LSL.W    #8,D0
  226.     MOVE.B    3(A0),D0
  227.     CMP.L    #"AU5!",D0
  228.     BNE    L0031
  229.     LEA    -200(A0),A1
  230.     MOVEA.L    A1,A2
  231.     LEA    L00A9,A3
  232.     MOVE.L    #$C7,D1
  233. L0016    MOVE.B    (A2)+,(A3)+
  234.     DBF    D1,L0016
  235. L0017    MOVE.B    (A0)+,(A1)+
  236.     SUBQ.L    #1,D5
  237.     BNE.S    L0017
  238.     MOVEA.L    A2,A1
  239.     LEA    -200(A1),A0
  240.     MOVE.L    A0,-(A7)
  241.     BSR    L0075
  242.     MOVEA.L    (A7)+,A0
  243.     LEA    L00A9,A1
  244.     MOVE.L    #$C7,D1
  245. L0018    MOVE.B    (A1)+,(A0)+
  246.     DBF    D1,L0018
  247.     BRA    L0031
  248. L0019    CMP.L    L009C,D0
  249.     BEQ    L001B
  250.     MOVEA.L    A1,A5
  251.     MOVE.W    #1,L009D
  252.     MOVE.L    D0,L009C
  253.     LSL.L    #5,D0
  254.     LEA    L00A6,A0
  255.     ADDA.L    D0,A0
  256.     MOVEA.L    A0,A1
  257.     LEA    L00A3,A2
  258.     MOVE.W    #$1F,D0
  259. L001A    MOVE.B    (A1)+,(A2)+
  260.     DBF    D0,L001A
  261.     CLR.W    -(A7)
  262.     MOVE.L    A0,-(A7)
  263.     MOVE.W    #$3D,-(A7)
  264.     TRAP    #1
  265.     ADDQ.L    #8,A7
  266.     MOVE.W    D0,D6
  267.     MOVE.L    L009E,-(A7)
  268.     MOVE.L    #$2008,-(A7)
  269.     MOVE.W    D0,-(A7)
  270.     MOVE.W    #$3F,-(A7)
  271.     TRAP    #1
  272.     LEA    12(A7),A7
  273.     MOVE.W    D6,-(A7)
  274.     MOVE.W    #$3E,-(A7)
  275.     TRAP    #1
  276.     ADDQ.L    #4,A7
  277.     CLR.W    L009D
  278.     MOVEA.L    L009E,A0
  279.     LEA    200(A0),A1
  280.     MOVE.L    4(A0),D7
  281.     BSR    L0075
  282.     MOVEA.L    A5,A1
  283. L001B    MOVE.L    4(A1),D0
  284.     MOVE.L    D0,D5
  285.     MOVEA.L    8(A1),A0
  286.     MOVE.L    L009C,D1
  287.     LSL.L    #2,D1
  288.     LEA    L00A4,A2
  289.     LEA    L00A5,A3
  290.     MOVE.L    0(A2,D1.W),D2
  291.     MOVE.L    0(A3,D1.W),D3
  292.     MOVEA.L    L009E,A1
  293.     LEA    200(A1),A1
  294.     ADDA.L    D2,A1
  295. L001C    MOVE.B    (A1)+,(A0)+
  296.     ADDQ.L    #1,D2
  297.     CMP.L    D2,D3
  298.     BLT.S    L001D
  299.     SUBQ.L    #1,D0
  300.     BNE.S    L001C
  301.     BRA.S    L001E
  302. L001D    MOVE.L    D3,D2
  303. L001E    MOVE.L    D2,0(A2,D1.W)
  304.     SUB.L    D0,D5
  305.     BRA    L0031
  306. L001F    MOVE.W    #1,L009D
  307.     CMP.L    L009C,D0
  308.     BEQ    L0021
  309.     MOVE.L    D0,L009C
  310.     LEA    L00A8,A0
  311.     MOVEA.L    0(A0,D1.W),A5
  312.     CMPA.L    L00A3,A5
  313.     BEQ    L0021
  314.     MOVEA.L    A1,A5
  315.     LSL.L    #5,D0
  316.     LEA    L00A6,A1
  317.     ADDA.L    D0,A1
  318.     LEA    L00A3,A2
  319.     MOVE.W    #$1F,D0
  320. L0020    MOVE.B    (A1)+,(A2)+
  321.     DBF    D0,L0020
  322.     MOVE.L    D2,D7
  323.     CLR.W    -(A7)
  324.     MOVE.W    D7,-(A7)
  325.     CLR.L    -(A7)
  326.     MOVE.W    #$42,-(A7)
  327.     TRAP    #1
  328.     LEA    10(A7),A7
  329.     PEA    L00AB
  330.     MOVE.L    #$400,-(A7)
  331.     MOVE.W    D7,-(A7)
  332.     MOVE.W    #$3F,-(A7)
  333.     TRAP    #1
  334.     LEA    12(A7),A7
  335.     MOVE.L    L00AC,D0
  336.     MOVE.L    L00AD,D2
  337.     SUBQ.L    #1,D2
  338.     EORI.L    #-1,D2
  339.     AND.L    D2,D0
  340.     MOVE.L    D0,L00AA
  341.     MOVE.L    #-1,L009F
  342.     MOVEA.L    A5,A1
  343.     MOVE.L    D7,D2
  344.     MOVE.L    L009C,D0
  345.     MOVE.L    D0,D1
  346.     LSL.L    #2,D1
  347. L0021    LEA    L00A4,A0
  348.     MOVE.L    0(A0,D1.W),D4
  349.     MOVE.L    4(A1),D5
  350.     MOVE.L    D4,D7
  351.     ADD.L    D5,D7
  352.     CMP.L    D4,D7
  353.     BLT.S    L0022
  354.     LEA    L00A5,A0
  355.     CMP.L    0(A0,D1.W),D7
  356.     BLT    L0023
  357. L0022    MOVE.L    0(A0,D1.W),D7
  358. L0023    SUB.L    D4,D7
  359.     MOVE.L    D7,D5
  360.     MOVEA.L    8(A1),A4
  361.     MOVEA.L    A4,A5
  362.     ADDA.L    D5,A5
  363.     SUBA.L    #1,A5
  364.     TST.L    D5
  365.     BEQ    L0031
  366.     LEA    L00A4,A0
  367.     LEA    L00A7,A1
  368.     MOVE.L    0(A1,D1.W),D0
  369.     ADD.L    D0,0(A0,D1.W)
  370.     MOVE.W    D2,L00A1
  371.     MOVE.L    D5,D2
  372.     LEA    L00A4,A0
  373.     MOVE.L    0(A0,D1.W),D0
  374.     MOVEA.L    D0,A2
  375.     MOVEA.L    A2,A3
  376.     MOVE.L    L00AD,D3
  377.     SUBQ.L    #1,D3
  378.     AND.L    D3,D0
  379.     MOVE.L    D3,D7
  380.     MOVE.L    D0,D6
  381.     EORI.L    #-1,D3
  382.     MOVE.L    A2,D0
  383.     AND.L    D3,D0
  384.     MOVE.L    D0,D4
  385.     ADDA.L    D5,A3
  386.     MOVE.L    A3,D5
  387.     AND.L    D7,D5
  388.     MOVE.L    A3,D0
  389.     AND.L    D3,D0
  390.     MOVE.L    D0,D3
  391.     SUB.L    D4,D0
  392.     MOVE.L    L00AD,D7
  393.     DIVU    D7,D0
  394.     MOVE.L    D0,D7
  395.     MOVE.L    D4,D0
  396.     MOVE.L    L00AD,D2
  397.     LEA    L00AE,A0
  398.     CMP.L    L00AA,D0
  399.     BNE.S    L0024
  400.     DIVU    D2,D0
  401.     LSL.L    #2,D0
  402.     MOVE.L    L00AC,D1
  403.     BRA.S    L0025
  404. L0024    DIVU    D2,D0
  405.     LSL.L    #2,D0
  406.     MOVE.L    4(A0,D0.W),D1
  407. L0025    MOVE.L    0(A0,D0.W),D2
  408.     MOVE.L    D1,D0
  409.     SUB.L    D2,D0
  410.     CMP.L    L009F,D4
  411.     BEQ    L0026
  412.     MOVE.L    D4,L009F
  413.     CLR.W    -(A7)
  414.     MOVE.W    L00A1,-(A7)
  415.     MOVE.L    D2,-(A7)
  416.     MOVE.L    D0,D2
  417.     MOVE.W    #$42,-(A7)
  418.     TRAP    #1
  419.     LEA    10(A7),A7
  420.     MOVE.L    L009E,-(A7)
  421.     MOVE.L    D2,-(A7)
  422.     MOVE.W    L00A1,-(A7)
  423.     MOVE.W    #$3F,-(A7)
  424.     TRAP    #1
  425.     LEA    12(A7),A7
  426.     MOVEA.L    L009E,A0
  427.     LEA    200(A0),A1
  428.     BSR    L0070
  429.     BRA    L0027
  430. L0026    TST.L    D7
  431.     BEQ    L002C
  432.     CLR.W    -(A7)
  433.     MOVE.W    L00A1,-(A7)
  434.     MOVE.L    D1,-(A7)
  435.     MOVE.W    #$42,-(A7)
  436.     TRAP    #1
  437.     LEA    10(A7),A7
  438. L0027    CMP.L    #1,D7
  439.     BLE    L002C
  440.     MOVE.L    D7,-(A7)
  441.     LSL.L    #2,D7
  442.     MOVE.L    D4,D0
  443.     MOVE.L    L00AD,D2
  444.     LEA    L00AE,A0
  445.     DIVU    D2,D0
  446.     LSL.L    #2,D0
  447.     MOVE.L    4(A0,D0.W),D1
  448.     ADDA.L    D7,A0
  449.     MOVE.L    0(A0,D0.W),D2
  450.     MOVE.L    D2,D0
  451.     SUB.L    D1,D0
  452.     MOVEA.L    A4,A6
  453.     ADDA.L    L00AD,A6
  454.     SUBA.L    D6,A6
  455.     LEA    -200(A6),A3
  456.     MOVE.L    A3,D7
  457.     MOVE.L    #$C7,D1
  458.     BTST    #0,D7
  459.     BEQ.S    L0028
  460.     ADDQ.L    #1,A3
  461.     SUBQ.L    #1,D1
  462. L0028    MOVE.L    (A7),D7
  463.     MOVE.L    D6,-(A7)
  464.     MOVE.L    L00AD,D6
  465.     MULU    D6,D7
  466.     MOVE.L    (A7)+,D6
  467.     ADDA.L    D7,A6
  468.     MOVE.L    (A7)+,D7
  469.     LEA    L00A9,A0
  470.     MOVEA.L    A3,A1
  471.     MOVE.L    D1,D2
  472. L0029    MOVE.B    (A1)+,(A0)+
  473.     DBF    D1,L0029
  474.     MOVE.L    A3,-(A7)
  475.     MOVE.L    D0,-(A7)
  476.     MOVE.W    L00A1,-(A7)
  477.     MOVE.W    #$3F,-(A7)
  478.     TRAP    #1
  479.     LEA    12(A7),A7
  480.     LEA    L00AE,A2
  481.     MOVE.L    D4,D0
  482.     MOVE.L    D6,-(A7)
  483.     MOVE.L    L00AD,D6
  484.     DIVU    D6,D0
  485.     MOVE.L    (A7)+,D6
  486.     LSL.L    #2,D0